Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/Training/HyperCard 2.0 Training/•HC 2.0-2/card_57285.txt

Text File | 1990-08-07 | 10KB | 441 lines

-- card: 57285 from stack: in.0-2
-- bmap block id: 57899
-- flags: 0000
-- background id: 15301
-- name: videodisc.1
----- HyperTalk script -----
-- hidden cd fld "hand&cableAnimation" holds the sequence for the
--- picture animation on the video screen;
-- hidden cd fld "whatLine" holds the number of the line of the other
--- field that's currently being shown

on openCard
  lock screen
  put "1" into cd fld "whatLine"
  click at the loc of btn "channel1"
  set the scroll of fld "wordScreen" to 0
  show fld "wordScreen"
  show bg btn "scrollMask"
  unlock screen
end openCard

on closeCard
  lock screen
  hide fld "wordScreen"
  hide bg btn "scrollMask"
  unlock screen with visual dissolve
end closeCard


--------------------------
on playForwards m
  -- if "1" is hilited then scroll some text
  if (the hilite of btn "channel1") then
    repeat until the scroll of fld "wordScreen" = 234
      scrollUp m
      if (the mouse is down) and noticeButton() then
        exit repeat
      end if
    end repeat
    if noticeButton() then
      if (whatButton() ≠ the short name of the target) then
        put whatButton() into theButton
        click at the loc of btn theButton
        exit playForwards
      end if
    end if
  end if
  -- if "2" is hilited, then show some pictures
  if (the hilite of btn "channel2") then
    put empty into fld "wordScreen"
    put cd fld "whatLine" into theStart
    repeat with n = theStart to the number of lines of cd fld "hand&cableAnimation"
      put line n of cd fld "hand&cableAnimation" into cd fld "pictureScreen"
      wait 4
      put n into cd fld "whatLine"
      if (the mouse is down) and noticeButton() then
        exit repeat
      end if
    end repeat
    if noticeButton() then
      if (whatButton() ≠ the short name of the target) then
        put whatButton() into theButton
        click at the loc of btn theButton
      end if
    end if
  end if
end playForwards

on stepForward m
  -- if "1" is hilited then scroll some text
  if the hilite of btn "channel1" then
    scrollUp m
  end if
  -- if "2" is hilited, then show some pictures
  if the hilite of btn "channel2" then
    put empty into fld "wordScreen"
    put cd fld "whatLine" into theLine
    if theLine ≠ 15 then
      put line (theLine + 1) of cd fld "hand&cableAnimation" into cd fld "pictureScreen"
      put (theLine + 1) into cd fld "whatLine"
    end if
  end if
end stepForward

on scrollUp m
  put the scroll of fld "wordScreen" into whatScroll
  add m to whatScroll
  set the scroll of fld "wordScreen" to whatScroll
end scrollUp

on playBackwards m
  if the hilite of btn "channel1" then
    repeat until the scroll of fld "wordScreen" = 0
      scrollDown m
      if (the mouse is down) and noticeButton() then
        exit repeat
      end if
    end repeat
  end if
  if noticeButton() then
    if (whatButton() ≠ the short name of the target) then
      put whatButton() into theButton
      click at the loc of btn theButton
      exit playBackwards
    end if
  end if
  if the hilite of btn "channel2" then
    put cd fld "whatLine" into theStart
    repeat with n = theStart down to 1
      put line n of cd fld "hand&cableAnimation" into cd fld "pictureScreen"
      wait 4
      put n into cd fld "whatLine"
      if (the mouse is down) and noticeButton() then
        exit repeat
      end if
    end repeat
    if noticeButton() then
      if (whatButton() ≠ the short name of the target) then
        put whatButton() into theButton
        click at the loc of btn theButton
      end if
    end if
  end if
end playBackwards

on stepBackward m
  -- if "1" is hilited then scroll some text
  if the hilite of btn "channel1" then
    scrollDown m
  end if
  -- if "2" is hilited, then show some pictures
  if the hilite of btn "channel2" then
    put empty into fld "wordScreen"
    put cd fld "whatLine" into theLine
    if theLine ≠ 1 then
      put line (theLine - 1) of cd fld "hand&cableAnimation" into cd fld "pictureScreen"
      put (theLine - 1) into cd fld "whatLine"
    end if
  end if
end stepBackward

on scrollDown m
  if the scroll of fld "wordScreen" ≠ 0 then
    put the scroll of fld "wordScreen" into whatScroll
    subtract m from whatScroll
    set the scroll of fld "wordScreen" to whatScroll
  end if
end scrollDown

function whatButton
repeat with n = 1 to 7
  if the clickLoc is within the rect of btn n then
    return the short name of btn n
    exit repeat
  end if
end repeat
end whatButton

function noticeButton
repeat with n = 1 to 7
  if the clickLoc is within the rect of btn n then
    return "true"
    exit repeat
  end if
end repeat
return "false"
end noticeButton




-- part 1 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=136 top=136 right=148 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Reverse
----- HyperTalk script -----
on mouseUp
  playBackwards 2
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=136 top=149 right=161 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: stepBack
----- HyperTalk script -----
on mouseUp
  stepBackward 6
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=175 top=149 right=161 bottom=187
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: stepForward
----- HyperTalk script -----
on mouseUp
  stepForward 6
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=175 top=136 right=148 bottom=187
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: play
----- HyperTalk script -----
on mouseUp
  playForwards 2
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=161 top=136 right=149 bottom=174
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: channel2
----- HyperTalk script -----
on mouseUp
  set hilite of btn id 6 to false
  set hilite of me to true
  lock screen
  put empty into cd fld "pictureScreen"
  put "1" into cd fld "whatLine"
  put return & "COMPUTER SET-UP:" & return & "Step 1" into fld "wordScreen"
  set the scroll of fld "wordScreen" to 0
  unlock screen with dissolve
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=150 top=136 right=149 bottom=163
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: channel1
----- HyperTalk script -----
on mouseUp
  set hilite of btn id 5 to false
  set hilite of me to true
  lock screen
  put empty into cd fld "pictureScreen"
  put "You can install in HyperCard a set of" && "straight-forward commands for driving videodisc players" && "and CD-ROM drives. You can then use HyperCard to build" && "a graphical, interactive interface to a videodisc or CD." & return & return & return & return & "THE END" into fld "wordScreen"
  set the scroll of fld "wordScreen" to 0
  unlock screen with dissolve
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=150 top=148 right=160 bottom=174
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: stop
----- HyperTalk script -----
on mouseUp
  if 1 = 2 then
  end if
end mouseUp



-- part 10 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=254 top=120 right=180 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 214
-- text size: 80
-- style flags: 0
-- line height: 80
-- part name: pictureScreen


-- part 11 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=434 top=76 right=259 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: hand&cableAnimation


-- part 12 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=434 top=218 right=235 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: whatLine


-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=54 top=61 right=76 bottom=74
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: closebox
----- HyperTalk script -----
-- This handler sets the cursor to simulate a real closeBox.
on mouseEnter
  set the cursor to "arrow"
end mouseEnter

-- This handler sets the cursor to simulate a real closeBox.
on mouseWithIn
  repeat until the mouseloc is not within the rect of me or the mouse is down
    set the cursor to "arrow"
  end repeat
  if the mouse is down then
    send mouseUp to me
  end if
end mouseWithIn

-- This handler simulates clicking in a closeBox.
on mouseUp
  set the icon of me to 7937
  wait 15
  set the icon of me to 0
  lock screen
  closeCard
  goBack
  unlock screen
end mouseUp



-- part contents for background part 1
----- text -----










Click the “1” and “2” buttons on the computer screen to change the sequence on the videodisc player, then click the play, reverse, and step buttons (the various arrows) to see the sequence.

-- part contents for card part 11
----- text -----
Z
Z
Z
Z
Z
Y
Z
Y
X
W
X
V
U
T
S


-- part contents for card part 12
----- text -----
10

-- part contents for card part 10
----- text -----
W